home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIMAIL / INTMAIL / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-07  |  5.5 KB  |  175 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutBox 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About Internet Mail"
  6.    ClientHeight    =   7215
  7.    ClientLeft      =   1635
  8.    ClientTop       =   1920
  9.    ClientWidth     =   9165
  10.    DrawWidth       =   3
  11.    ForeColor       =   &H00000000&
  12.    Height          =   7620
  13.    Icon            =   "About.frx":0000
  14.    Left            =   1575
  15.    LinkTopic       =   "Form2"
  16.    LockControls    =   -1  'True
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    NegotiateMenus  =   0   'False
  20.    ScaleHeight     =   7215
  21.    ScaleWidth      =   9165
  22.    Top             =   1575
  23.    Width           =   9285
  24.    Begin VB.Frame fraCompany 
  25.       BackColor       =   &H00FFFFFF&
  26.       Caption         =   "Company Information"
  27.       Height          =   2595
  28.       Left            =   3150
  29.       TabIndex        =   3
  30.       Top             =   3300
  31.       Width           =   3705
  32.       Begin VB.Label lblInfo 
  33.          AutoSize        =   -1  'True
  34.          BackColor       =   &H00FFFFFF&
  35.          Caption         =   "Label1"
  36.          Height          =   195
  37.          Left            =   120
  38.          TabIndex        =   4
  39.          Top             =   255
  40.          Width           =   480
  41.       End
  42.    End
  43.    Begin VB.PictureBox CrescentLogo 
  44.       Appearance      =   0  'Flat
  45.       AutoSize        =   -1  'True
  46.       BackColor       =   &H80000005&
  47.       BorderStyle     =   0  'None
  48.       ForeColor       =   &H80000008&
  49.       Height          =   2505
  50.       Left            =   0
  51.       Picture         =   "About.frx":000C
  52.       ScaleHeight     =   2505
  53.       ScaleWidth      =   7080
  54.       TabIndex        =   2
  55.       Top             =   3375
  56.       Width           =   7080
  57.       Begin VB.Line lneBorder 
  58.          BorderColor     =   &H00800000&
  59.          X1              =   3180
  60.          X2              =   9000
  61.          Y1              =   0
  62.          Y2              =   0
  63.       End
  64.    End
  65.    Begin VB.CommandButton cmdOK 
  66.       Caption         =   "OK"
  67.       Default         =   -1  'True
  68.       Height          =   375
  69.       Left            =   5730
  70.       TabIndex        =   0
  71.       Top             =   2610
  72.       Width           =   1185
  73.    End
  74.    Begin VB.Image imgIcon 
  75.       Height          =   1335
  76.       Index           =   1
  77.       Left            =   5715
  78.       Picture         =   "About.frx":13836
  79.       Top             =   90
  80.       Width           =   1305
  81.    End
  82.    Begin VB.Label lblWarning 
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   $"About.frx":15760
  85.       ForeColor       =   &H00000000&
  86.       Height          =   1035
  87.       Left            =   75
  88.       TabIndex        =   1
  89.       Top             =   2295
  90.       UseMnemonic     =   0   'False
  91.       Width           =   4785
  92.       WordWrap        =   -1  'True
  93.    End
  94.    Begin VB.Line lneSeparator 
  95.       BorderColor     =   &H00808000&
  96.       BorderWidth     =   2
  97.       Index           =   1
  98.       X1              =   -240
  99.       X2              =   7910
  100.       Y1              =   2190
  101.       Y2              =   2190
  102.    End
  103.    Begin VB.Line lneSeparator 
  104.       BorderColor     =   &H00000000&
  105.       Index           =   0
  106.       X1              =   -135
  107.       X2              =   7910
  108.       Y1              =   2205
  109.       Y2              =   2205
  110.    End
  111.    Begin VB.Image imgIcon 
  112.       Height          =   1995
  113.       Index           =   0
  114.       Left            =   75
  115.       Picture         =   "About.frx":15884
  116.       Top             =   90
  117.       Width           =   840
  118.    End
  119. Attribute VB_Name = "AboutBox"
  120. Attribute VB_Creatable = False
  121. Attribute VB_Exposed = False
  122. Option Explicit
  123. Private Sub cmdOK_Click()
  124.     Unload Me
  125. End Sub
  126. Private Sub Form_Load()
  127.   CenterForm Me
  128.   CrescentLogo.Width = 3210
  129.   Dim Info As String
  130.   Const Company As String = "Crescent Division of Progress Software"
  131.   Const Address As String = "14 Oak Park"
  132.   Const CityState As String = "Bedford, MA"
  133.   Const Zip As String = "01730"
  134.   Const TechSupport As String = "(781) 280-3000"
  135.   Const email As String = "crescent@progress.com"
  136.   Const Web As String = "http://crescent.progress.com"
  137.   Info = " " & vbCrLf & vbCrLf
  138.   Info = Company & vbCrLf
  139.   Info = Info & Address & vbCrLf
  140.   Info = Info & CityState & "   " & Zip & vbCrLf & vbCrLf
  141.   Info = Info & "Tel: " & TechSupport & vbCrLf & vbCrLf
  142.   Info = Info & "Web: " & Web & vbCrLf
  143.   Info = Info & "Email: " & email & vbCrLf
  144.   lblInfo.Caption = Info
  145. End Sub
  146. Private Sub Form_Paint()
  147.     Dim SysRes    As Integer
  148.     Dim PrintText As String
  149.     PrintText = "Progress Software Corporation Internet Mail Version 1.0"
  150.     Me.CurrentY = 150
  151.     Me.CurrentX = 1100
  152.     Print PrintText;
  153.     PrintText = "Copyright " & Chr(169) & " 1996 Progress Software Corporation"
  154.     Me.CurrentY = 375
  155.     Me.CurrentX = 1100
  156.     Print PrintText;
  157.     PrintText = "This product is licensed to:"
  158.     Me.CurrentY = 750
  159.     Me.CurrentX = 1100
  160.     Print PrintText;
  161.     Me.CurrentY = 1150
  162.     Me.CurrentX = 1100
  163.     Print "Internet ToolPak Customer";
  164.     Me.CurrentY = 1375
  165.     Me.CurrentX = 1100
  166.     Print "Your Company";
  167.     PrintText = "Serial number:   00000000-00"
  168.     Me.CurrentY = 1600
  169.     Me.CurrentX = 1100
  170.     Print PrintText;
  171. End Sub
  172. Private Sub imgIcon_DblClick(Index As Integer)
  173.     MsgBox "This software designed by Val", vbOKOnly, "Internet Mail"
  174. End Sub
  175.